home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Development
/
General
/
MacMETH3.2.1 Folder
/
MacMETH3.2.1 Disk 1⁄2
/
Examples
/
RandomNumbers.MOD
< prev
next >
Wrap
Text File
|
1994-03-21
|
522b
|
26 lines
IMPLEMENTATION MODULE RandomNumbers;
IMPORT MathLib;
VAR Z: LONGINT;
PROCEDURE Uniform(): REAL;
CONST a = 16807D; m = 2147483647D;
q = m DIV a; r = m MOD a;
VAR g: LONGINT;
BEGIN g := a*(Z MOD q) - r*(Z DIV q);
IF g > 0D THEN Z := g ELSE Z := g + m END;
RETURN FLOAT(Z)*(1.0/FLOAT(m))
END Uniform;
PROCEDURE Exp(mu: REAL): REAL;
BEGIN RETURN -MathLib.Ln(Uniform())/mu
END Exp;
PROCEDURE InitSeed(seed: LONGINT);
BEGIN Z := seed
END InitSeed;
BEGIN Z := 1
END RandomNumbers.